typedstream
NXImage
Object
NXEPSImageRep
NXImageRep
iisssss
[1070c]%!PS-Adobe-2.0 EPSF-2.0
%%Title: Rectangle.eps
%%Creator: Ali Ozer
%%CreationDate: Tue Aug 14 10:38:47 1990
%%Pages: 0 1
%%BoundingBox: 0 0 570 750
%%EndComments
% This program draws a particular symmetric pattern.  Plug in 
%  xscaleAmount, yscaleAmount and rotateAmount with a 
% pleasing value given by RectSpinShow 
% adapted from Rectangles.eps from the demos directory
% by Kevin Brain.  May 1/1991
/numSteps 400 def   
/boxsize 100 def		% original size was 200
% The drawing routine.		% modified to use boxsize variable
/drawbox {
boxsize -.5 mul boxsize -.5 mul 
boxsize boxsize rectstroke
} bind def
% Come up towards the middle of a 8.5x11 (default) page
306 367 translate
% Have thin lines (even when scaled; 0 linewidth
% means "use the smallest line you can")
0 setlinewidth 
% Take numSteps steps from 1 to 0, drawing a
% rectangle and altering the coordinate system
% by the above values at every step...
.4 1 numSteps div neg 0 {
.5 add  setgray
 % xscaleAmount yscaleAmount 
1.0194 1.0255 scale
 % rotateAmount
1.05 rotate
drawbox
} for
%%EndFile